home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / parad / sep95 / jens1f8.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  8.6 KB  |  481x430  |  4-bit (5 colors)
   ocr: FIG: 08.SSL-WScripti.rum method run(var eventinto Event) var tc - icursor enduar if tc.open(tustomer.db) then if - EC.locate("Customer No",1221) then if - tc.edit() then if tC.l0ckRecord0) then msgInfo(tc."Nane" - ,"Is locked :"+ string(tc.recordStatus("Locked"))) endif else msgInfor"Problen "Cannot edit table") endif else nsginto("Probiem" "Cannot locate record") endif else msgInfor"Problen "Cannot open TCursor") endif endmethod Edit Line: 12 Col: 1